home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / nadir11.zip / XTREE.N < prev   
Text File  |  1995-11-08  |  435b  |  17 lines
  1. Define RunXtree()
  2. {
  3.     scr = SdCreate(, -1, -1, 5, 35, "Xtree Parameters");
  4.  
  5.     SdPrompt(scr, 1, 6, "Device to log :");
  6.     SdString(scr, , 1, 1, 22, 4, &parm^xtree^device);
  7.  
  8.     SdButton(scr, , 1, 3, 5, 10, "OK", , 1);
  9.     SdButton(scr, , 1, 3, 20, 10, "Cancel", , 2);
  10.  
  11.     if (SdEdit(scr) == 1) {
  12.         SdUpdate(scr);
  13.         System(`c:\xtgold\xtgold.com ` . parm^xtree^device . ":");
  14.     }
  15.     SdDestroy(scr);
  16. }
  17.